home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / junk / rectinrect.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  736 b   |  21 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.247283, 0.570652, .L0, "1");
  3. v2 = .free(0.538043, 0.581522, .L0, "2");
  4. l1 = .l.vv(v1, v1, .L0);
  5. l2 = .l.vv(v1, v2, .L0, .longline);
  6. l5 = .l.vlperp(v2, l2, .L0, .longline);
  7. l6 = .l.vlperp(v1, l2, .L0, .longline);
  8. v5 = .vonl(l6, -0.232395, -0.504966, .L0, .cross);
  9. l7 = .l.vlperp(v5, l6, .L0, .longline);
  10. v6 = .vonl(l2, 0.239672, 0.577392, .L0, .cross);
  11. v7 = .v.vvmid(v2, v5, .L0, .plus);
  12. c1 = .c.vv(v7, v6, .L0);
  13. v9 = .v.lc(l6, c1, 2, .L0, .plus);
  14. v11 = .v.lc(l5, c1, 1, .L0, .plus);
  15. l8 = .l.vv(v11, v6, .yellow, .L0);
  16. l11 = .l.vv(v9, v6, .yellow, .L0);
  17. l3 = .l.vlperp(v11, l8, .invisible, .L0);
  18. v3 = .v.ll(l3, l7, .L0, .plus);
  19. l4 = .l.vv(v11, v3, .yellow, .L0);
  20. l12 = .l.vv(v3, v9, .yellow, .L0);
  21.